﻿Public Class frm_olvide_Constraseña

    Dim acceso As New acceso_a_datos
    Dim carga_combo As New combo

    Private Sub btn_volver_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_volver.Click
        frm_Acceso.Show()
        Me.txt_usuario.Text = ""
        Me.txt_rta.Text = ""
        Me.Close()
    End Sub

    Private Sub frm_olvide_Constraseña_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        acceso._tabla = "Pregunta_Secreta"
        carga_combo.cargar(Me.cmb_pregunta, acceso.leo_tabla(), "descripcion", "cod_pregunta")
        Me.txt_usuario.Focus()

    End Sub

    'BOTON INGRESAR
    Private Sub btn_ingresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ingresar.Click
        Dim consulta As String 'Aqui guardamos la consulta
        Dim tabla As Data.DataTable

        If Me.validar(sender, e) = True Then
            'Consulta para seleccionar el registro que cumpla con el criterio.
            consulta = "SELECT E.nombre_Usuario, E.cod_Pregunta, E.res_Pregunta FROM Empleado E INNER JOIN Pregunta_Secreta ON E.cod_Pregunta = Pregunta_Secreta.cod_Pregunta "
            consulta += " WHERE E.nombre_Usuario ='" & txt_usuario.Text & "' and E.cod_Pregunta = " & cmb_pregunta.SelectedValue & " and E.res_Pregunta = '" & txt_rta.Text & "'"
            tabla = acceso._consulta(consulta)

            If tabla.Rows.Count = 1 Then
                frm_Acceso_Concedido._Nombre = txt_usuario.Text.ToLower
                frm_Acceso_Concedido.Show()

            Else
                frm_Acceso_Denegado_Pregunta.Show()
            End If
        End If
    End Sub

    'para ingresar con enter sin tener que hacer click en el boton
    Private Sub txt_rta_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt_rta.KeyPress
        If Asc(e.KeyChar) = 13 Then
            btn_ingresar_Click(sender, e)
        End If
    End Sub

    Private Sub lbl_olviderta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl_olviderta.Click
        frm_AvisoRespuesta.Show()
    End Sub

    Private Sub frm_olvide_Constraseña_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        Dispose()
    End Sub

    Private Function validar(ByVal sender As System.Object, ByVal e As System.EventArgs) As Boolean

        If Me.txt_usuario.Text = "" Then
            MessageBox.Show("Tenes que completar el campo Usuario", "Importante", MessageBoxButtons.OK, MessageBoxIcon.Information)
            'indicar_obligatorios(sender, e)
            Me.txt_usuario.Focus()
            Return False
        End If

        If Me.txt_rta.Text = "" Then
            MessageBox.Show("Tenes que completar el campo Respuesta", "Importante", MessageBoxButtons.OK, MessageBoxIcon.Information)
            'indicar_obligatorios(sender, e)
            Me.txt_rta.Focus()
            Return False
        End If

        Return True
    End Function

    'Private Sub txt_usuario_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_usuario.Leave
    '    If txt_usuario.Text = "" And btn_volver.Focused = False Then
    '        lbl_usuario_obligatorio.Visible = True
    '    Else
    '        lbl_usuario_obligatorio.Visible = False
    '    End If
    'End Sub

    'Private Sub txt_rta_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_rta.Leave
    '    If txt_rta.Text = "" And btn_volver.Focused = False Then
    '        lbl_respuesta_obligatoria.Visible = True
    '    Else
    '        lbl_respuesta_obligatoria.Visible = False
    '    End If
    'End Sub
    'Public Sub indicar_obligatorios(ByVal sender As System.Object, ByVal e As System.EventArgs)
    '    txt_usuario_Leave(sender, e)
    '    txt_rta_Leave(sender, e)
    'End Sub
End Class